Imports System
Imports System.Drawing
Namespace BaseProperty
    Public Class qLPropertyThuThu
#Region "Variable"
        'cac bien dc khai bao duoi dang private
        Private sMaThuThu As String
        Private sTenThuThu As String
        Private sTaiKhoan As String
        Private sMatKhau As String
        Private sDienThoai As String
        Private sDiaChi As String
        Private sEmail As String
        Private dNgaySinh As DateTime
        Private bTrangThai As Boolean
        Private iMaNhomThuThu As Integer
#End Region
#Region "Property"
        Property MaThuThu()
            Get
                Return Me.sMaThuThu
            End Get
            Set(ByVal value)
                Me.sMaThuThu = value
            End Set
        End Property
        Property TenThuThu() As String
            Get
                Return Me.sTenThuThu
            End Get
            Set(ByVal value As String)
                Me.sTenThuThu = value
            End Set
        End Property
        Property TaiKhoan() As String
            Get
                Return Me.sTaiKhoan
            End Get
            Set(ByVal value As String)
                Me.sTaiKhoan = value
            End Set
        End Property
        Property MatKhau() As String
            Get
                Return Me.sMatKhau
            End Get
            Set(ByVal value As String)
                Me.sMatKhau = value
            End Set
        End Property
        Property DienThoai() As String
            Get
                Return Me.sDienThoai
            End Get
            Set(ByVal value As String)
                Me.sDienThoai = value
            End Set
        End Property
        Property DiaChi() As String
            Get
                Return Me.sDiaChi
            End Get
            Set(ByVal value As String)
                Me.sDiaChi = value
            End Set
        End Property
        Property Email() As String
            Get
                Return Me.sEmail
            End Get
            Set(ByVal value As String)
                Me.sEmail = value
            End Set
        End Property
        Property NgaySinh() As DateTime
            Get
                Return Me.dNgaySinh
            End Get
            Set(ByVal value As DateTime)
                Me.dNgaySinh = value
            End Set
        End Property
        Property TrangThai() As Boolean
            Get
                Return Me.bTrangThai
            End Get
            Set(ByVal value As Boolean)
                Me.bTrangThai = value
            End Set
        End Property
        Property MaNhomThuThu() As Integer
            Get
                Return Me.iMaNhomThuThu
            End Get
            Set(ByVal value As Integer)
                Me.iMaNhomThuThu = value
            End Set
        End Property
#End Region
    End Class
    Public Class qLPropertyNhomThuThu
#Region "Variable"
        Private iMaNhomThuThu As Integer
        Private sTenNhomThuThu As String
        Private sMoTa As String
#End Region
#Region "Property"
        Property MaNhomThuThu() As Integer
            Get
                Return Me.iMaNhomThuThu
            End Get
            Set(ByVal value As Integer)
                Me.iMaNhomThuThu = value
            End Set
        End Property
        Property TenNhomThuThu() As String
            Get
                Return Me.sTenNhomThuThu
            End Get
            Set(ByVal value As String)
                Me.sTenNhomThuThu = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertySinhVien
#Region "Variable"
        Private sMaThe As String
        Private sTenSV As String
        Private iMaSV As String
        Private dNgaySinh As DateTime
        Private sDienThoai As String
        Private bGioiTinh As Boolean
        Private sMaLop As String
        Private bTrangThai As Boolean
        Private sMoTa As String
        Private dNgayCapThe As DateTime
        Private dNgayHetHan As DateTime
#End Region
#Region "Property"
        Property MaThe() As String
            Get
                Return Me.sMaThe
            End Get
            Set(ByVal value As String)
                Me.sMaThe = value
            End Set
        End Property
        Property TenSV() As String
            Get
                Return Me.sTenSV
            End Get
            Set(ByVal value As String)
                Me.sTenSV = value
            End Set
        End Property
        Property MaSV() As Integer
            Get
                Return Me.iMaSV
            End Get
            Set(ByVal value As Integer)
                Me.iMaSV = value
            End Set
        End Property
        Property NgaySinh() As DateTime
            Get
                Return Me.dNgaySinh
            End Get
            Set(ByVal value As DateTime)
                Me.dNgaySinh = value
            End Set
        End Property
        Property DienThoai() As Integer
            Get
                Return Me.sDienThoai
            End Get
            Set(ByVal value As Integer)
                Me.sDienThoai = value
            End Set
        End Property
        Property GioiTinh() As Boolean
            Get
                Return Me.bGioiTinh
            End Get
            Set(ByVal value As Boolean)
                Me.bGioiTinh = value
            End Set
        End Property
        Property MaLop() As String
            Get
                Return Me.sMaLop
            End Get
            Set(ByVal value As String)
                Me.sMaLop = value
            End Set
        End Property
        Property TrangThai() As Boolean
            Get
                Return Me.bTrangThai
            End Get
            Set(ByVal value As Boolean)
                Me.bTrangThai = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
        Property NgayCapThe() As DateTime
            Get
                Return Me.dNgayCapThe
            End Get
            Set(ByVal value As DateTime)
                Me.dNgayCapThe = value
            End Set
        End Property
        Property NgayHetHan() As DateTime
            Get
                Return Me.dNgayHetHan
            End Get
            Set(ByVal value As DateTime)
                Me.dNgayHetHan = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyKhoa
#Region "Variable"
        Private sMaKhoa As String
        Private sTenKhoa As String
        Private sDienThoai As String
        Private sMoTa As String
#End Region
#Region "Property"
        Property MaKhoa() As String
            Get
                Return Me.sMaKhoa
            End Get
            Set(ByVal value As String)
                Me.sMaKhoa = value
            End Set
        End Property
        Property TenKhoa() As String
            Get
                Return Me.sTenKhoa
            End Get
            Set(ByVal value As String)
                Me.sTenKhoa = value
            End Set
        End Property
        Property DienThoai() As Integer
            Get
                Return Me.sDienThoai
            End Get
            Set(ByVal value As Integer)
                Me.sDienThoai = value
            End Set
        End Property
        Property Mota() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyLop
#Region "Variable"
        Private sMaLop As String
        Private sTenLop As String
        Private sLopTruong As String
        Private sDienThoai As String
        Private sMoTa As String
        Private sMaKhoa As String
        Private iKhoaHoc As Integer
#End Region
#Region "Property"
        Property MaLop() As String
            Get
                Return Me.sMaLop
            End Get
            Set(ByVal value As String)
                Me.sMaLop = value
            End Set
        End Property
        Property TenLop() As String
            Get
                Return Me.sTenLop
            End Get
            Set(ByVal value As String)
                Me.sTenLop = value
            End Set
        End Property
        Property LopTruong() As String
            Get
                Return Me.sLopTruong
            End Get
            Set(ByVal value As String)
                Me.sLopTruong = value
            End Set
        End Property
        Property DienThoai() As Integer
            Get
                Return Me.sDienThoai
            End Get
            Set(ByVal value As Integer)
                Me.sDienThoai = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
        Property MaKhoa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
        Property KhoaHoc() As Integer
            Get
                Return Me.iKhoaHoc
            End Get
            Set(ByVal value As Integer)
                Me.iKhoaHoc = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyChuyenMucSach
#Region "Variable"
        Private sMaChuyenMucSach As String
        Private sTenChuyenMucSach As String
        Private sMoTa As String
#End Region
#Region "Property"
        Property MaChuyenMucSach() As String
            Get
                Return Me.sMaChuyenMucSach
            End Get
            Set(ByVal value As String)
                Me.sMaChuyenMucSach = value
            End Set
        End Property
        Property TenChuyenMucSach() As String
            Get
                Return Me.sTenChuyenMucSach
            End Get
            Set(ByVal value As String)
                Me.sTenChuyenMucSach = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertySach
#Region "Variable"
        Private sMaSach As String
        Private iMaVach As Integer
        Private sTenSach As String
        Private sMaChuyenMucSach As String
        Private sMaViTri As String
        Private sMaNgonNgu As String
        Private sMaNXB As String
        Private sMaTacGia As String
        Private iSoTrang As Integer
        Private iNamXuatBan As Integer
        Private iSoLuong As Integer
        Private dDonGia As Decimal
        Private sKichThuoc As String
        Private dNgayNhap As DateTime
        Private iSoLuongCo As Integer
        Private sMoTa As String
#End Region
#Region "Property"
        Property MaSach() As String
            Get
                Return Me.sMaSach
            End Get
            Set(ByVal value As String)
                Me.sMaSach = value
            End Set
        End Property
        Property MaVach() As Integer
            Get
                Return Me.iMaVach
            End Get
            Set(ByVal value As Integer)
                Me.iMaVach = value
            End Set
        End Property
        Property TenSach() As String
            Get
                Return Me.sTenSach
            End Get
            Set(ByVal value As String)
                Me.sTenSach = value
            End Set
        End Property
        Property MaChuyenMucSach() As String
            Get
                Return Me.sMaChuyenMucSach
            End Get
            Set(ByVal value As String)
                Me.sMaChuyenMucSach = value
            End Set
        End Property
        Property MaViTri() As String
            Get
                Return Me.sMaViTri
            End Get
            Set(ByVal value As String)
                Me.sMaViTri = value
            End Set
        End Property
        Property MaNgonNgu() As String
            Get
                Return Me.sMaNgonNgu
            End Get
            Set(ByVal value As String)
                Me.sMaNgonNgu = value
            End Set
        End Property
        Property MaNXB() As String
            Get
                Return Me.sMaNXB
            End Get
            Set(ByVal value As String)
                Me.sMaNXB = value
            End Set
        End Property
        Property MaTacGia() As String
            Get
                Return Me.sMaTacGia
            End Get
            Set(ByVal value As String)
                Me.sMaTacGia = value
            End Set
        End Property
        Property SoTrang() As Integer
            Get
                Return Me.iSoTrang
            End Get
            Set(ByVal value As Integer)
                Me.iSoTrang = value
            End Set
        End Property
        Property NamXuatBan() As Integer
            Get
                Return Me.iNamXuatBan
            End Get
            Set(ByVal value As Integer)
                Me.iNamXuatBan = value
            End Set
        End Property
        Property SoLuong() As Integer
            Get
                Return Me.iSoLuong
            End Get
            Set(ByVal value As Integer)
                Me.iSoLuong = value
            End Set
        End Property
        Property DonGia() As Decimal
            Get
                Return Me.dDonGia
            End Get
            Set(ByVal value As Decimal)
                Me.dDonGia = value
            End Set
        End Property
        Property KichThuoc() As String
            Get
                Return Me.sKichThuoc
            End Get
            Set(ByVal value As String)
                Me.sKichThuoc = value
            End Set
        End Property
        Property NgayNhap() As DateTime
            Get
                Return Me.dNgayNhap
            End Get
            Set(ByVal value As DateTime)
                Me.dNgayNhap = value
            End Set
        End Property
        Property SoLuongCo() As Integer
            Get
                Return Me.iSoLuongCo
            End Get
            Set(ByVal value As Integer)
                Me.iSoLuongCo = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyNgonngu
#Region "Variable"
        Private sMaNgonNgu As Integer
        Private sTenNgonNgu As String
#End Region
#Region "Property"
        Property MaNgonNgu() As Integer
            Get
                Return Me.sMaNgonNgu
            End Get
            Set(ByVal value As Integer)
                Me.sMaNgonNgu = value
            End Set
        End Property
        Property TenNgonNgu() As String
            Get
                Return Me.sTenNgonNgu
            End Get
            Set(ByVal value As String)
                Me.sTenNgonNgu = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyNXB
#Region "Variable"
        Private sMaNXB As Integer
        Private sTenNXB As String
#End Region
#Region "Property"
        Property MaNXB() As Integer
            Get
                Return Me.sMaNXB
            End Get
            Set(ByVal value As Integer)
                Me.sMaNXB = value
            End Set
        End Property
        Property TenNXB() As String
            Get
                Return Me.sTenNXB
            End Get
            Set(ByVal value As String)
                Me.sTenNXB = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyViTri
#Region "Variable"
        Private sMaViTri As Integer
        Private sTenViTri As String
        Private sMota As String
#End Region
#Region "Property"
        Property MaViTri() As Integer
            Get
                Return Me.sMaViTri
            End Get
            Set(ByVal value As Integer)
                Me.sMaViTri = value
            End Set
        End Property
        Property TenViTri() As String
            Get
                Return Me.sTenViTri
            End Get
            Set(ByVal value As String)
                Me.sTenViTri = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMota
            End Get
            Set(ByVal value As String)
                Me.sMota = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyTacGia
#Region "Variable"
        Private sMaTacGia As Integer
        Private sTenTacGia As String
        Private sMoTa As String
#End Region
#Region "Property"
        Property MaTacGia() As Integer
            Get
                Return Me.sMaTacGia
            End Get
            Set(ByVal value As Integer)
                Me.sMaTacGia = value
            End Set
        End Property
        Property TenTacGia() As String
            Get
                Return Me.sTenTacGia
            End Get
            Set(ByVal value As String)
                Me.sTenTacGia = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
#End Region
    End Class
    Public Class qlPropertyPhieuMuon
#Region "Variable"
        Private iMaPhieu As Integer
        Private sMaThe As Integer
        Private dNgayMuon As DateTime
        Private dNgayTra As DateTime
        Private bTinhTrang As Boolean
        Private sMoTa As String
#End Region
#Region "Property"
        Property MaPhieu() As Integer
            Get
                Return Me.iMaPhieu
            End Get
            Set(ByVal value As Integer)
                Me.iMaPhieu = value
            End Set
        End Property
        Property MaThe() As Integer
            Get
                Return Me.sMaThe
            End Get
            Set(ByVal value As Integer)
                Me.sMaThe = value
            End Set
        End Property
        Property NgayMuon() As DateTime
            Get
                Return Me.dNgayMuon
            End Get
            Set(ByVal value As DateTime)
                Me.dNgayMuon = value
            End Set
        End Property
        Property NgayTra() As DateTime
            Get
                Return Me.dNgayTra
            End Get
            Set(ByVal value As DateTime)
                Me.dNgayTra = value
            End Set
        End Property
        Property TinhTrang() As Boolean
            Get
                Return Me.bTinhTrang
            End Get
            Set(ByVal value As Boolean)
                Me.bTinhTrang = value
            End Set
        End Property
        Property MoTa() As String
            Get
                Return Me.sMoTa
            End Get
            Set(ByVal value As String)
                Me.sMoTa = value
            End Set
        End Property
#End Region
    End Class
End Namespace

